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BASSCVT_T_P = convert numeric text to packed de 1h-Sep=19 4 90: 17:1) AX=-11 Or retane ve ag 
14-Sep-1984 11:54:49 BASRTL.SRCIJBASCVTTP.832;1 


0001 ZTITLE "BASSCVT_T_P = convert numeric text to packed decimal’ 

b008 MODULE BASSCVT_T_P ( ' ! convert numeric $gxt to packed gec imal 

st TOENT = '1-010° ! File: BASCVTTP.B32 Edit: MDL101 

5 1 BEGIN 

O00¢ 15 

sis 44 : | amma into alata an tanh acne 

0009 1 i* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 

0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

Bet : :* ALL RIGHTS RESERVED. * 
. ® 

8618 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY HER * 

Bate 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

dt : :; TRANSFERRED. * 
4 *® 

0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHA WITHOUT NOTICE * 

0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

b058 : :* CORPORATION. * 
'e 8 

Ose 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

BaS2 : : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
° ® 

0027 1 !« a 

Bass ' accent hanna at iinet iii 

5080 1 

$032 i i FACILITY BASIC L S 
! : anguage Support 

0088 1 | capes tise 

0034 1 ! ABSTRACT: 

0035 1! 

BoRS : This routine converts numeric text to packed decimal. 

+43 } ENVIRONMENT: Runs at any access mode - AST reentrant 

9040 AUTHOR: Pamela L. Levesque, CREATION DATE: 29-Dec-1981 

0042 1 | MODIFIED BY: 

0043 1! 

0044 1! 1-001 - Original. PLL 29-Dec-1981 

0045 1! I- - Declare BAS$ Psects. PLL 11-Feb-1982. 

0046 1 ! 1-005 - Incorporate changes based on code review. PLL 11-Feb-1982 

0047 1 ! 1-004 = Fix bug in calculation of integer and fraction digits. PLL 12-Feb-1982 

0048 1 ! 1-005 - If the input string is all blanks, return 1 integer zero and 

0049 1! the appropriate number of fractional zeroes 

0050 1! Also incorporated DGP's suggestions. PLL 17-Feb-1982 

0051 1 ! 1-006 - Fix a bug in the all blanks case. PLL 29-Mar-1982 ; 

b03¢ 1 ! 1-007 = Look at a fag in the frame to determine rounding or truncating. 

0053 1! PLL 10-Jun-19 

0054 1 ! 1-008 - Remove edit 007 - it's the caller's responsibility to check the 

0055 1! lag in the frame and pass it as an argument if necessary. PLL 30-Jun-1982 

B026 1 ! 1-009 - when skip_tabs flag is set, the spanc mask should be set to 

0057 1! skip_blanks OR skip_tabs, not skip_blanks AND skip_tabs. MDL 30-Jun-1983 


— 
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BASSCVT_T_P BASSCVT_T_P = convert numeric text to packed de 1b-Sep-1984 00:17:11 ret Bliss-32 v4.0-7 
1-010 14-Sep-1984 11:54:49 


; 38 0038 } : 1-010 = check return status from LIBSSADDP_R7. MDL 13-Jan-1984 
; 60 0060 1 


s 
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ate" TP 
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BASSCVT_T 
Declarations 


abe 


NOUS WN—OOONOus 


-——oo0 SOSOOooo OOOO000 0000000000000 
QSSRLEGRANLSSS 


POPOPONIPONIPOPMOMONONYDY 2 2 SS 


SOOOCOSOCOSOOCOOOCOOCOOOOOOOOOoOooOoOO: 


1 


cc cre ee me me a me me me ee ee em De ee a ee me me me ee ee ee ee ee eed od eed ed 


| 
| 


SSBTTL ‘Declarations’ 
SWITCHES: 


P = convert numeric text to packed de 18-50 Sep-19 


oe 


AX-11 Bliss-32 V4.0-74 Pa 
BASRTL.SRC BASCVTIP. 03951 - (23 


oa$ep=1986 11:56 


= 
o=— 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 
LINKAGE 
JSB_R7 = JSB (REGISTER = 
PRESERVE (8. ‘9 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSCVT_T_P; 


; INCLUDE FILES: 


LIBRARY ‘RTLSTARLE'; 
REQUIRE ‘RTLIN:RTLPSECT'; 


; MACROS: 


CRO 
ADDP = LIBSSADDP_R7 2; 


EQUATED SYMBOLS: 
} NONE 

: FIELDS: 

NONE 
PSECTS: 


DECLARE_PSECTS (BAS); 
{ 

: OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 


EGISTER 
11 


eis = 5, REGISTER = 6, REGISTER = 7) 


1); 
! convert from text to packed 


! System symbols 
! Define PSECT declarations macros 


aa ee eee peer ee 
BASSEVT LTP passcv convert numeric text to packed de 19- oon 1 88e 99:17 
; 139 1g 1 
ee 9 13 1 —— ROUTINE — ; 
; \ t : LIBSSADDP_R7 : JSB_R7; 
1 g 16 1 


X=1 


Aksar $aedaascyite.n49s1 


pa CO er - ee a — 
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BASSEVT TP BASSCVT_T_P = convert numeric text to packed de 18-Sep-19 4 99173) AX=-11 Oh ieteas V4.0-74 
1-01 ASSCVT_T_P = convert numeric text to packed de 14-Sep-1984 11:54:49 BASRTL.SRCJBASCVTTP.832; 
ZSBTTL "BASSCVT_T_P = convert numeric text to packed decimal’ 
GLOBAL ROUTINE BASSCVT_T_P ( ! convert numeric text to packed decimal 
! text descriptor 
PACKED_DSC, i packed descriptor 
FLAGS ! user flags 


'e4 

} FUNCTIONAL DESCRIPTION: 

i Converts a text pering representing a numeric value to a packed 
p 


decimal value. Description of the text is as follows: 
<0 or more spaces, nulls, or tabs> 


<0 or more dig 
<0 or more spaces, nulls, or tabs> 
<end of string> 


Setting the strip spaces bit in FLAGS causes embedded spaces to be ignored. 
Otherwise blanks are an error. 


posecng the skip tabs bit in FLAGS causes embedded tab characters to be ignored. 
Otherwise they are an error. 


The value will be rounded, if necessary, to fit into the number of 
digits specified by the packed decimal descriptor. Truncation may be 
requested by setting the don't round bit in FLAGS. 
Note that this routine expects the length and scale fields in the 
packed decimal descriptor to be set by the caller. 
CALLING SEQUENCE: 
ret_status.wlc.v = BASSCVT_T_P (TEXT_DSC.rt.dx1, PACKED_DSC.wp.dsd, FLAGS.rl.v) 


FORMAL PARAMETERS: 


VIEWN @—OODDNAMNEWN (OOO NAVEWN OC ODNAUESWN “ODONOU 


TEXT DSC address of the input text descriptor 
PACKED. OSC address of the output decimal descriptor 


ee ee em ee et a a ed a a at nt do = 2 8 
em aa et at ed ss a = ss ~~ 2 2 ss SS he 


OS NNN SS SF eS SSS ese eee sees 


TT tt) te te te te te ee te ee ee ee ee et te tt te tt te tt te te tt te te 


7? 2 value of caller's flags 

8 § bit Q set indicates s ip blanks 
9 bit 3 set indicates don't round value 
? 2 bit 4 set indicates skip tabs 

§ ; IMPLICIT INPUTS: 

4 NONE 

5 6 

g 08 IMPLICIT OUTPUTS: 

8 $3 NONE 

9 71 

0 % ROUTINE VALUE: 

1 7 


- ] 
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$C BASSCVT_T_P = convert numeric text to packed de 1b-Se 1984 00:17:11 AX-11 Bliss-32 V4.0-74 
10 BASSCVT_T_P = convert numeric text to backed de 132808= 1386 eet BASRTL SRCIBASCVTIP.039; 1 
failure numeric text could not be converted to the 
specified decimal descriptor 


T 

T 

: success text putcoserut ty cenvertes to decimal 
1 

' 

! SIDE EFFECTS: 

i 

' 

' 


BEGIN 
TEXT_DSC : REF BLOCK (8,BYTE) 
PACKED_DSC : REF BLOCK (12,BYfE); 

BUILTIN 

ACTUALCOUNT, 

CVTSP, 

SPANC: 

LITERAL 


pew we fofelolololololo) 


Mrmr 


X = 31, 
CRAR_TAB = %X'09" : UNSIGNED (8) 
: UNSIGNE 


~Oor ~~CO + ~~ 
>.- + a 
_ — 


.— fs. 


( 
8 
8 
) 
) 
( 
8 
8 
) 
( 
( 
8 


MASK-BLANKS = 2 
MASK-TAB = 4 : 

V_SKIP_TABS = 1 
VISKIP"BLANKS = 
VIDONT=ROUND = 1 
SPANC.TABLE = UPLIT BYTE 

REP CHAR_NULL OF (0), 

MASK BLANKS), 

REP CRAR TAB = CHAR_NULL - 1 OF (0), 

REP CRAR_SPACE = CHAR_TAB - 1 OF (0), 


(MASK BLANKS), 
REP CRAR_ZERO = CHAR_SPACE - 1 OF (0), 


OO ab MO ANF UI BODE te POS eR eee BOO NINES 
OOOO NE WIN OS ODO UNE WIN $$ O ODNA UE WN 9 OONAUES WN ("OO OONOUE WI OVOONOUS 


APNIRIPINIMINININININ 4 2 2 2 OS O S OOOOO SSSssZes OOOO0O0O0MMC fo) 


REPOPINININDPINININDNYININININININYNINYIPYNINININININYIDININPININININININININYNID) 9 8 2 2 ts 


SOSGOQOCOSOSOOOSOSOOSOSSCOOCOOOSCOOOSOOOSCOOOOOOOOOOOOO 
WWAAWN AAAI AANA AAAI ANNI ANIA AAAI I anonoronorononong 


ests 


PPA SSIS EB EE 


NNN NNSA AAO AOAOAOAO Ww 
DONO UESWN “OO OODNOAUEWN (“OC ODNAUE WN “OOONOULS WN O09 


IN 


tte tes 4 


Reet eI OOOO OOO Oe 
Soren 


sooo 
oO 
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TP = convert numeric text to packed de 16-Sep-1984 00:17:11 AX-11 Bliss-32 V4.0-74 
TP = convert numeric text to packed de 122868718 4 Ee EBASRTL SRE BASCVTTP.03951 


(MASK_NUMERIC), 

REP CRAR_ONE = CHAR_ZERO = 1 OF (0), 
(MASK_NUMERIC), 

REP CRAR_TWO = CHAR_ONE = 1 OF (0), 
(MASK_NUMERIC), 

REP CRAR_THREE = CHAR_TWO = 1 OF (0), 
(MASK_NUMERIC), 

REP CRAR_FOUR = CHAR_THREE = 1 OF (0), 


(MASK NUMERIC), 
REP CRAR IVE = CHAR_FOUR - 1 OF (0), 
*“CHAR_FIVE = 1 OF (0), 


nn 


. 4 
“4 


WWWAIANAA NAA PP 


“= CHAR_SIX = 1 OF (0), 


IC 
E 
10) 
IX = 
EVEN 
UMERIC), 
IGHT'~ CHAR SEVEN - 1 OF (0), 
INE = CHAR_EIGHT - 1 OF (0), 
RIC), 
CHAR’NINE OF (0) 
(256, BYTE, UNSIGNED); 
LOCAL 
USER_FLAGS, 
TEMPTLENGTH : INITIAL (1), 


TEXT BUF _: VECTOR (32, BYTE], 
INT_BIGITS, 


TOTAL_INT_DIGITS : INITIAL (0), 
ACTUAC_SCALE : INITIAL (0), 


TOTAL_FRAC_DIGITS : INITIAL (0), 


CURRENT_PTR, 
ROUND DIGIT 


MASK 
START_PTR 

DEC_PT_LOC : INITIAL (0), 
END_TXT_PTR; 


MAP 
CURRENT_PTR : REF VECTOR C,BYTE); 


flags from caller or 0 

length of temp. text 

(init to 1 for sign songs 
temp. area for input tex 
# int. digits in a segment 

of the input string 
# int. digits in input 
# fract. digits in a segment 

of the input etc ing 
# fract. egies in input 
temp. variable . 
ptr. into input text string 
digit to round on 
temp. mask for SPANC 
ptr. to ist char in input string 
ptr. to dec. pt. in input string 
ptr. to end of input string 


: INITIAL (0), 


'¢ 

: The overall strategy is to construct an acceptable numeric string for CVTSP 

! in a temporary area, TEXT_BUF. ‘‘Acceptable’’ means no embedded spaces, tabs, 
! or decimal point, and less than or equal to 31 digits. This routine should 

detect any invalid strings which would cause a reserved operand from CVITSP. 


IF ACTUALCOUNT () LSS K_FLAGS_ARG 
USER_FLAGS = 0 
USER_FLAGS = .FLAGS; ! store caller's flags, if any 


SOOOSOOSOSOOOSOOOOOOSCSOSO COCO SOSSOSOSGOOCCOCOCOCCSOOOCOCOOOCOCOOOOOOOOOOOO aw 


WWAWAAAI NNN WANA AINA WIAIWN ANN AIAIN WIAA NIAN IW WNNAA WI WAIN 
RIPIPINIPINDNINININDNYPININININININIPINININININIPINININIPIPIPIPIPIPIPIPIPINIPIPIPUPUNINIAPIPIPIPOPINPINIPINIPUNININD 

“RSRSRSRSR 

ZNMKOKOKZROKRQO 

Laake, ee = ee = ee = ee =) 

OWZSPSPsSZPrysZPYP 

o 5 2aCwBDCwvVIcCwD 

DBD mMmAzMMnomomn 


NOUS WN OOO 


Page 


enti 
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000 


Sunes 


NI 8 a 8 OCSSF = 


M—OODNAVESWN SO ODNAUS WN "ODONOuU 


WIAA POPOPoPoNnony 


fat tet tel ad pe ny ee 
M—OOBNOUE WN OOGNOUS wi 


Be Se Se Se Se Se Ge Se Se Se Ge Se Be Ge Be Se Se Ge Ge Ge Fe Se Se Se FF Se Se Ge Ss Ge Se Se Ge Se Se Se Se Se Ss Se Se FOSS Os Se SH SH Se Se Ss Se Ss ee Oe oe ere 
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BASSCVT_T_P = convert numeric text to packed de Ib-Se $1984 00:17:11 AX-11 Bliss-32 V4.0-74 
BASSCVT_T_P = convert numeric text to packed de 1 ~Sep-19 4 Moho BASRTL.SRCIBASCVTIP.83 37 


END_TXT_PTR = .TEXT_DSC COSCSA_POINTER] + .TEXT_DSC CDSCS$W_LENGTH); 


9 hg 
4 Skip leading spaces. Skip leading tabs only if bit in flag is set. 
9 
8¢ = (.USER_FLAGS AND V_SKIP_TABS) NEQ 0 
$ MASK = MASK_BLANKS OR MASK_TAB 
039 ELSE 
98 MASK = MASK_BLANKS; 
99 CURRENT_PTR = SPANC (TEXT_DSC COSC$W_LENGTH], .TEXT_DSC CDSCSA_POINTER], 
400 SPANC_TABLE, MASR); 
0401 
040 '¢ 
040 : sg bo insert a sign into the temporary area so that we know a sign 
bcos : is always included in TEMP_LENGTH. 
0406 
0407 IF .CURRENT_PTR NEQ 0 AND 
0408 (.CURRENT_PTR CO] EQL %C'+" OR 
rat -CURRENT_PTR [O) EQL %C‘'-") 


BEGIN 
TEXT BUF CO] = .CURRENT_PTR (OJ; 
SUARENT pte = .CURRENT_PTR + 1; 


BEGIN 
TEXT_BUF CO} = XC'+'; 
END; 


START_PTR = .CURRENT_PTR; ! start = Ist possible digit 


'¢ 
! Search for integer digits. Embedded tabs and spaces may be ignored, depending 
on USER_FLAGS. 


WHILE 1 DO 

BEGIN 

'¢ 

! Wait until here to check for all blanks in the input string. 


! A zero string must contain the proper number of fractional digits, 
so it’s easiest to let zeroes be handled the same as non-zeroes. 


If .CURRENT_PTR EQL 0 
THEN 


SPSPEEE SOoOOCSCCOoOSoOoOOoOSoOoOoOoOSoOSoOoOSoOSoOSoOSo 
BEEF SAINI IIIA ININININININININID 2 OS 


¢ T 

§ ELS 
3 

; 


PWN OC ODVNOUE WN OC OONOAUES UN —OOONOULS WN — 


BEGIN 
TOTAL INT DIGITS = 1; 
TEXT BUF [1] = %C'0': 
TEMP"LENGTH = .TEMP_LENGTH + 1; 
04 EXITCOOP 
04 END; 


Page 


P 
(3) 


BASSCVT_T_P BASSCVT_T_P = convert numeric text to packed de 16-Sep-1984 AX-11 Bliss-32 V4.0-74 
wet BASSCVT_T_P = convert numeric text to packed de 16-30-19 99: Ye BASRTL.SRC IBASCVTTP.B $3.1 
3 3 445 

; ee ret | CURRENT_PTR = SPANC (ZREF (.END_TXT_PTR = .START_PTR), 

$ 2? ret -CURRENT_PTR, SPANC TABLE, ZREF (MASK_NUMERIC)); 

; 28 0449 '¢ t 

$ 28 0450 ! Store any digits found. 

, 3 451 I< 

; 360 126 

; 361 455 4 INT_DIGITS = ‘e _cuenen PTR NEQ 0 

; oe 454 & THEN .C RREAT_ PTR = .START_PTR 

; 6 0455 ELSE “END. TXT- “PTR = .START_PTR); 

; 364 beeo ! calc # integer digits 

3 369 457 IF .INT_DIGITS GTR O 

; 366 0458 THEN 

3 44 0459 4 BEGIN 

: 68 0460 4 CHSMOVE (.INT_DIGITS, .START_PTR, TEXT_BUF + .TEMP_LENGTH); 

3 9 0461 4 ! copy int. digits to temp area 
: 370 0462 4 TEMP_LENGTH = .TEMP_LENGTH + .INT_DIGITS; 

3; 371 0463 4 ore. INT _DIGITS = TTOTAL_INT_DIGITS + INT DIGITS; 

: 372 0464 ; END 

; s7 0465 

: 74 0466 ; IF een Wa NEQ 0 

; 375 0467 

3 376 0468 4 BEGIN 

: ee 0469 4 !4 

3 308 peed : Have found a non-digit. It could be a decimal point or embedded blanks, etc. 
: 380 0472 4 SELECTONE .CURRENT_PTR CO] OF 

3 (el 0473 4 T 

; 382 0474 4 Cxc°.°): 

; 383 0475 5 , 

3; «4384 0476 5 LOC = .CURRENT_PTR; : save location of dec pt 

; 385 0477 5 CURRENT! PTR = .CURRENT_ PTR + s 

3 ; 0478 5 EXITLOOP 

3; Ser 0479 4 END 

; 388 0480 4 CCHAR oe, CHAR_NULLJ: 

; 389 0481 5 N 

; 390 0482 5 IF (.USER_FLAGS AND V_SKIP_BLANKS) NEQ 0 

3; 0483 5 THEN 

; 392 0484 6 BEGIN 

: 93 0485 6 CURRENT_PTR = SPANC (ZREF (.END_TXT_PTR = .START_PTR), 
3 94 0486 6 . CURRENT PTR, SPANC_ TABLE, 

: 95 0487 6 ZRE F (MASK _BLANKS S))F 

3 38 8 8 6 IF .CURRENT_PTR EQL 0 ee EXITLOOP: 

3 9 489 6 START_PTR = -PCORREN NT_PTR 

; 398 0490 END 

3; 399 0491 SE 

: 400 049 RETURN 0; ! <should be zeroes here> 

: 401 493 4 END; 

> 40 494 4 CCHAR_TAB): 

; 40 495 : BEGIN 

: 404 49 IF (.,USER_FLAGS AND V_SKIP_TABS) NEQ 0 

3; 405 497 5§ THEN 

: £06 498 6 BEGIN 

; 40 499 6 CURRENT_PTR = SPANC (ZREF (.END_TXT_PTR = .START_PTR), 
; 408 500 6 .CURRENT_PTR SPANC7T TABLE, 

: 409 0501 6 GREF (MASK_TAB)); 


ee 


ISLE ip OS ah RE SEES APY IRS 
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T_P = convert numeric text to packed de 16-Sep-1984 # 90: df: :11 AX-11 of? tesa V4.0-7 Page 1 
T-P = convert numeric text to packed de 14-Sep-1984 4:49 BASRTL.SRCJBASCVTTP. bg 31 (3) 


am Pts tal PTR EQL 0 THEN EXITLOOP; 
START_PTR =". CURRENT_PTR; 


END 
ELSE 
RETURN 0; 
END; 
COTHERWISE): 
RETURN 0 
TES; 


END 
ELSE 


wn 
rw 
aon 
—— 
‘6 


<< 


é ' no other chars valid here 


14 
Only digits found. Purely integer number. 
EXITLOOP; 
END; ! end of WHILE loop 
'¢ 


i Return an error if the number of integer digits exceeds what the destination 
4 descriptor specifies. 


WAWINWIAIRIRINININININININIDN 2 2 A OO ew 
MEWN SO OONOUSWN “OOO NOUS WN Oo 


IF .TOTAL_INT_DIGITS GTR (. a 3 ye" C COSCSW LENGTH] + 
PACKED_DSC COSCSB_SCALEJ) 


Dal het ee et et ek et ek el et tae et ek Bee det eee ee ee ee et et 


DOOCOOCOSCOOSCSOOSOSSSOSSSCSOSOSCOOOOCOOSOOOOOOOCOOOOCOOOOOOOCOCOO aw 
a alvalvalval ah ah ah dh dh ah Ab aa da daa aaa AAA AAA AD AD AD AD AL AL AL AL TAL AL AL TAL AL ALM ALTAR AL AL AL AL Al Ala) 
PUTT BS BS BS BS BS EEE AWN N NANI IRIN NININI NINN 2 2 SS SS SS DOOOOOCOO 


DONA UNE WN CO ODNAUE WN 9 ODNOAU EWN $9 ODNAU EWN OOO NOAU EWR OOONAUSE WT 
MEER S LESSEE FWWWIWIWINININININININI NNN AWIRIPINPIPINI NIN AWA BBE POO 


$9 THEN RETURN 0; 
38 '+ 
39 i Search for fractional digits if a decimal point was found and we are not 
at i. at the end of the string. 
442 
443 IF .DEC_PT_LOC NEQ 0 AND 
444 CURRERT_PTR NEQ 0 AND 
445 CURRENT “PTR LSS .END_TXT_PTR 
446 THEN 
447 BEGIN 
448 
rch START_PTR = .DEC_PT_LOC + 1; 
$3) MILE 1 DO 
re CURRENT_PTR = SPANC (ZREF (.END_TXT_PTR = .START_P 
$28 - CURRENT_ PTR, SPANC_TABLE, %REF THASK. _NUMERIC)); 
$26 te 
tt } Copy any digits found into temp. area. 
459 : 
460 05 ACTUAL_SCALE = if «CURRENT PTR ae 0 
461 05 THEN CURRERT_P = peer 
46 b ELSE "ENDS TXT~ PIR - .START_PTR 
46 5 ' Zale i of fract digits 
464 05 IF .ACTUAL_SCALE NEC 0 
465 05 
466 05 BEGIN 


Dt et et ee et et eet et 
SNS 
owns 


500 


ooo 
wnN— 


w 
—-~o 
= 
vat i 
3 | 


Coa on 


Wr—O0OOo~n 
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IP = convert numeric text to packed de 18-Sep- 
-'.P = convert numeric text to packed de 14-Sep- 


—— 


“ 
o 


OWONAUSWN ("OOD ONAUS WHO 


7:11 


4 
4 
CHSMOVE (.ACTUAL_SCALE, .START_PTR, TEX 
C 
C 


0 
1 

T.BUF + .TEMP_LENGTH); 
! oy fract to temp area 
TEMP_LENGTH = ,TEMP_LENGTH + .ACTUAL_SCALE; 


TOTAL _FRAC_DIGITS =". TOTAL_FRAC_DIGITS + .ACTUAL_SCALE; 


IF .CURRENT_PTR NEQ 0 AND 
-CURRENT_PTR LSS .END_TXT_PTR 
! at end of string? 


-o | 


19 : AX=-11 Bliss-32 V4.0-7 
198 ? oeid9 UBASRTL SRC BASCVTTP. 


=SSRIESE 


DIS ne et et et ot oe 
WN SO OONOUSWN—O0OOn 


PPV DVDV PUPP DPUDV SVP SISA 


_ 


B 

0 5 

056 

056 

056 

0565 4 

0564 4 

0565 4 

0566 4 

0567 4 

0568 4 THEN 

0569 5 BEGIN 

0570 5 !+ 

0571 5 ! Have found a non-digit. It may be an embedded blank or tab, or trailing 
p27 é blank or tab. 

b27 : SELECTONE .CURRENT_PTR (OJ OF 

O37 ; CCHAR SPACE, CHAR_NULLJ: 

0578 6 IF (.USER_FLAGS AND V_SKIP_BLANKS) NEQ 0 

0579 6 THEN 

0580 7 N 

0581 7 CURRENT_PTR = SPANC (ZREF (.END_TXT_PTR = .START_PTR), 
0582 7 .CURRENT_PTR, SPANC_TABLE, 
0583 7 REF (MASK_BLANKS)); 

0584 7 IF .CURRENT_PTR EQL 0 THEN EXITLOOP; 

0585 7 START_PTR = .CURRENT_PTR; 

0586 7 END 

0587 6 ELSE 

0588 6 RETURN 0; ! ret an error 
0589 5 ; 

0590 5 CCHAR_TAB): 

0591 6 N 

05 § 6 IF (.USER_FLAGS AND V_SKIP_TABS) NEQ 0 

0595 6 THEN 

0594 7 BEGIN 

0595 7 CURRENT_PTR = SPANC (ZREF (.END_TXT_PTR - .START_PTR), 
0596 7 .CURRENT_ PTR, SPANC_TABLE, 
0597 7 ZREF (MASK_TAB)); 

0598 7 IF .CURRENT_PTR EQL 0 THEN EXITLOOP; 

0599 7 START_PTR =~. CURRENT_PTR; 

0600 7 EN 

0601 6 ELSE 

060 g RETURN 0; 

060 END; 

0604 § COTHERWI SE): cate 

0605 5 RETURN 0; ! invalid character 
0606 5 TES; 

0607 5 

0608 5 END 

0609 5 

0610 4 ELSE 

0611 4 !+4 : 

bes ? : Fraction digits were the rest of the string. 

0614 4 EXITLOOP; 

0615 4 


Be ee Pe Se Se Se Se Se Se Se Be Ge Se Se Fe Se Fe Se Ge Ge Ge Se FSH Fe Se Ge Fe Se SH Se Se SE Se oe FFs Ge Se Se ee Fe Se Se See Fe Se Se Se Se Se Se ee ee teas 
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| 
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BASSCVT_T_P BASSCVT_T_P = convert numeric text to packed de 1b-Se 1984 00:17:11 AX-11 Bliss-32 V4.0-74 Page 12 
1-010 BASSCVT_T_P = convert numeric text to packed de 12280871382 He BASRTL SRE SBASCVTTP. 04951 (3) 
> 524 061 END; ! End of "WHILE’’ Loo 
: 382 oe END ! end of f di h 
$ : ! end of fract. it searc 
: 357 0619 5 ts . 
$ Dee 620 : Does the input text use all the fractional digits allowed by the decimal 
: dey 0621 ' descriptor? 
Pie Batt 
; 236 0624 DIFF = (=,PACKED_DSC CDSCSB_SCALE]) - .TOTAL_FRAC_DIGITS; 
. 3 0625 IF .DIFF GTR O 
> 534 0626 EN 
§ 29 80 7 BEGIN 
; 336 628 : ‘ ae: 
, 6357 +494 ! Fewer fractional digits than allowed. Pad with zeroes. 
: doe 0630 te 
s SP 0631 
; 540 +o) CHSCOPY (.TEMP_LENGTH, TEXT_BUF, %C‘°O*, .TEMP_LENGTH + .DIFF, 
> 541 063 TEXT_BOF); 
; 24g 0634 ; TEMP_LENGTH = .TEMP_LENGTH + .DIFF; 
> 54 0635 END 
3; 544 0636 3 
> 545 0637 2 ELSE IF .DIFF LSS 0 
> 546 0638 § 
; 547 0639 BEGIN 
; 548 0640 3 !+ 
> 549 0641 3 ! Too many fractional digits. Save the first digit past the allowed number 
: 550 0642 3 ! of fractional digits for rounding, The value will be truncated if the user 
‘eh 0645 3 ! set dont_round in USER_FLAGS, or if the digit to round on is less than five. 
: 3 0644 3 ! Note that if the caller passed an input oti tag longer than 31 digits, the 
s 5535 0645 3 ! 32nd digit is saved for rounding purposes. (It is lost after the CVTSP 
> 554 0646 3 ! instruction.) 
gs 399 0647 3 !- 
3: 320 0648 3 
3 Sof 0649 3 LOCAL 
; 558 0650 3 INDEX; 
3; 559 0651 3 
; 560 Bo3¢ 3 INDEX = 1 ! for sign 
; 561 0653 3 + .TOTAL_INT_DIGITS 
; 562 0654 3 + ,TOTAL-FRAC_DIGITS 
; 563 0655 3 - 1; ! start counting from 0 
; 564 0656 3 ROUND_DIGIT = .TEXT_BUF C. INDEX); et 
3 6365 0657 3 ' save digit to round on 
; 566 0658 3 TEMP_LENGTH = .TEMP_LENGTH + .DIFF; er 
s Ser 0659 ; ! subtr extra fract digits 
: 568 0660 ! from text string 
; 288 0661 2 END; 
: 570 066 
, Sri 066 '¢ : 
3 276 0664 ! Copy the text to the destination descriptor and convert to packed at the 
s Of 0665 ! same time. 
3 574 206 !e 
3 Se 066 
; 576 0668 TEMP_LENGTH = MIN (.TEMP_LENGTH = 1, K_MAX_DIGITS); Lrg 
:- Orr 0669 ! not more than 31 digits and 
: 578 0670 ! don't saynt sign 
; $79 0671 CVTSP (TEMP_LENGTH, TEXT_BUF, PACKED_DSC CDSC$W_LENGTHI, 
; 580 0672 -PACKEB_DSC COSCSA_POINTER]); 


—___—___—__---—_—_- - O_O 
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T_P = convert numeric text to packed de 1228681382 90a dg BASRIL SREIBASCV TIE. B35; 1 mye (3) 
8 

r 
user did a SET ROUND and there is a rounding digit ‘ 


IF (.USER_ FLAGS AND V_DONT_ROUND) EQL 0 AND 
c -ROUNB_DIGIT GEQ %¢'S' 


N 
BEGIN 
LOCAL 


ONE; 
If .TEXT_BUF CO] EQL X%C'-" 
THEN 
ONE = K_PACKED_NEG_ONE 
ELSE 
m ONE = K_PACKED_ONE; 


! add one to the last significant digit in the number to cause 
the rounding effect. 


DNAVUESWN —“OVDONOuUS 


P) 
P) 
P) 
5 
P) 
5 
5 
5 
5 
5 
P) 
5 
5 
5 
5 
5 
6 


S OO0000000000000000000000 


IF NOT ADDP (1, ONE, .PACKED_DSC COSCS$W_LENGTH], .PACKED_DSC CDSCS$A_POINTER]) 
og RETURN 0; 


RETURN 1; 


Sn 
he 
14 
' see if we need to round this number. the numbe wilt be rounded if the 
3 
3 
; 
$ 
1 END; ! End of routine BASSCVT_T_P 


-TITLE BASSCVT_T_P BASSCVT_T_P = convert numeric text 
to packed de 

-IDENT \1-010\ 

-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


000 P.AAA: .BYTE 
01 (8) 


C22) 
(15) 


IAAI. AI AAAI 


yes 
> OONOULS WN OO 
oO 
o 
~ 
mm 


2 
0 
4 
0 
2 
. 0 
-BYTE 1 
. 1 
1 
1 
1 
1 
1 
1 
1 
1 
0 


GOoooocooooooooooo 


C198) 


SPANC_TABLE= P.AAA 
-EXTRN LIBSSADDP_R? 


OFFC 00000 .ENTRY BASSCVT_T_P, Save R2,R3.R4,R5,R6,R7,.RB,R9,- ; 0218 


Be Se Se Se Ge Se Se Se Se Se Se Geese Se Ge FH Se Fe Ge Fe Se ee ese SH Se Se Se Se Se Se Se Se Se Se Se ee SH Se Se Se Se Se Se Be ee Fe Se Se Se tease 
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BASSCVT -1$ - convert numeric text to packed de 18- Sep-1984 211 AX-11 Bliss-32 V4.0-74 P 14 
BASSCVT_T_P = convert numeric text to packed de 14-Sep-19 4 se 254:49 BASRTL. Somer: — (3) 
R1 : 
a eae Ie fn eo 
10 AE oe 0009 CLRO Actua : 
A ge din et : 
03 C BF 001 CMPB EP a + 0382 
4 1€ 0001 BGEQU i$ : 
6E D4 0001 CLRL SER_FLAGS : 0384 
6 oc Re DO 0018 18 Rov, FLAGS, USER. FLAGS + 0386 
50 06 =A 00 0001f 2$: MOVL TEXT : 0388 
5 60 3¢ 00023 MOVZ2WL (RO)? END_TXT_PTR : 
57 06 Ad CO 00026 ADDL2 (ROS END_TXT_PTR : 
1C AE D4 OO02A CLRL 28(SP + 0394 
08 6 04 €1 0002D BBC #4, USER FLAGS, 3$ : 
1C AE 06 00031 INCL 28(SP) : 
52 06 DO 00034 MOVL #6, MASK : 0396 
03 11 00037 BRB 4 : 
52 02 DO 00039 3$: MOVL #2, MASK : 0398 
52 FEBD CF 04 B80 60 28 0003C 4$: SPANC (RO), a4(RO), SPANC_TABLE, MASK + 0399 
02 12 00044 BNEQ 5$ : 
51 D4 00046 CLRL = R21 : 
59 51 DO 00048 S$: MOVL R1, CURRENT_PTR : 
10 13 00048 BEQL : 0407 
28 69 91 00040 CMPB (CURRENT_PTR), #43 + 0408 
05 13 00050 BEQL : 
2D 69 91 00052 CMPB (CURRENT_PTR), #45 : 0409 
06 12 00055 BNEQ 7$ : 
24 «AE 89 90 00057 6$ MOVB (CURRENT_PTR)+, TEXT_BUF : 0412. 
04 11 00058 BRB : 0407, 
24 AE 28 90 0005D 7$ MOVB = «#43, : 0417) 
58 9 DO 00061 8$ MOVL CURRENT. xoTee F START _PTR : 0420 
0C 12 00064 BNEQ 9s : 0437 
14 AE 01 D0 00066 MOVL TOTAL INT_DIGITS : 0440 
25. AE 30 90 0006A MOVB +8, BUF ?1 > 0441 
56 D6 0006E INCL TEMP LENGTH” : 044 
79 11 00070 BRB 21$ ~ : 043 
SA 57 5B C3 00072 9$ SUBL3 START_PTR, END_TXT_PTR, R10 : 0446 
01 FE8G CCF 69 5A 2B 00076 SPANC R10, TCURRENT PTR)? SPANC TABLE, #1 3: 0447 
02 12 0007D BNEQ 10$ : 
1 D4 0007F CLRL = «RV. : 
59 51 DO 00081 108 MOVL R11, CURRENT_PTR + 0446 
18 AE D4 99 CLRL 24 (SP) : 0453 
5 dS 087 TSTL CURRENT _PTR : 
09 13 00089 BEQL 11$ : 
18 AE 06 0088 INCL. 24(SP) : 
58 59 58 C3 0008 SUBL3 START_PTR, CURRENT_PTR, INT_DIGITS > 0454 
g 11 0009 BRB 12$ : 
58 A b9 0094 11$: MOVL R10, INT_DIGITS : 0455 
op 15 00097 12$: BLE 13$ : 0457 
24 AES 68 8 28 00099 MOVC3 INT DIGITS. (START PTR), TEXT_BUF- : 0460 
56 58 CO 0009F ADDL INT_DIGITS, TEMP_LENGTH > 046 
14 AE 0 OOA2 ADDL INI DIGITS, TOTAC_INT_DIGITS : 046 
41 18 ar f OOA6 13% BLBC 4(SP), 21§ > 0466 
2€ 69 91 OOOAA CMPB (CURRENT_PTR), #46 > 0474 


- 


-——_—___——--_- ——— — a 
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BASSCVT_T_P BASSCVT_T_P = convert numeric text to packed de 16-Sep-1984 00:17:11 AX-11 Bliss-32 V4.0-74 P 5 
ANH BASSCVT_T_P = convert numeric text to packed de 12286871382 Ha UBASRTL SRE BASCVTTP.039;1 we 3 
| 6 12 QOOAD BNEQ 14$ ; 
04 AE 9 H OOAF MOVAB (CURRENT_PTR)+, DEC_PT_LOC ; 0476 
6 11 0008 BRB 21$ + 047 
69 93 0085 14$ TSTB (CURRENT PTR) ; 0480 
05 13 0008 BEQL ©-:15$ : 
20 69 91 00089 CMPB (CURRENT _PTR) #32 ; 
11 iF 00BC BNEQ 18$ : 
03 6 § O0BE 15$:  BLBS USER_FLAGS, 17$ 3 0482 
0142 31 OOOCT 16$:  BRW 43$ ; 
02 FE36— CF 69 5A 28 00C4 17$:  SPANC R10, (CURRENT_PTR), SPANC_TABLE, #2 ; 0487 
14 13 000CB BEQL ©: 19$ : 
14 17 99¢D BRB 20$ : 0485 
09 69 91 OOOCF 188 CMPB = (CURRENT_PTR), #9 + 0494 
ED 12 000D2 BNEQ 16$ : 
£9 1c AE E9 00004 BLBC 28(SP), 16$ 7 0496 
04 FE22 CF 69 5A 8 00008 SPANC R10, (CURRENT_PTR), SPANC_TABLE, #4 ; 0501 
02 1 9000F BNEQ 20$ : 
51 04 0O0E1 19$:  CLRL 1 : 
59 51 b9 QOO0OE3 20$: MOVL R1, CURRENT_PTR > 0499 
03 13 O00E6 BEQL «= 2.18 : 0502. 
FF76 31 OOOES BRW 8$ ; 
58 08 Ac b0 QOOOEB 21$: MOVL = PACKED_DSC, R8 : 0526 
50 68 3C QOOEF MOVZWL (R8), RO : 0527 
51 08 A8 98 000F2 cVTBL 8(R8), RI : 
50 51 CO 000F6 ADDL2 R1, RO F 
50 14 AE D1 O00F9 CMPL  TOTAL_INT_DIGITS, RO ; 0526 
C2 14 000FD BGTR 16$ ; 
04 AE D5 OOOFF TSTL DEC_PT_LOC ; 0535 
02 13 00102 BEQL © 22$ ; 
59 05 00104 TSTL CURRENT _PTR ; 0536 
7D 13 00106 22$:  BEQL 4 ; 
57 59 D1 00108 CMPL URRENT_PTR, END_TXT_PTR ; 0537 
7F 18 00108 BGEQ : 
5B 04 A 01 C1 0010D ADDL3 #1, DEC_PT_LOC, START_PTR ; 0541 
5A 5 5B C3 00112 23$:  SUBL3  START_PTR,~END_TXT_PTR, R10 : 0545 
01 FDES CF 69 5A 2B 00116 SPANC R10, TCURRENT_PTR)> SPANC_TABLE, #1 : 0546 
02 12 00110 BNEQ 24$ ; 
51 D4 OO11F CLRL RY : 
59 51 D0 01 1248:  MOVL  R1, CURRENT_PTR 3 0545 
18 AE D4 00124 CLRL =. 24 (SP) 3 0552 
5 DS 00127 TSTL | CURRENT_PTR ; 
OA 13 00129 BEQL 25$ ; 
18 AE 0g 0128 INCL  24(SP) : 
10 AE 59 38 3 91 F SuBL3 START FIR, CURRENT_PTR, ACTUAL_SCALE ; 0553 
10 AE rn bg 01 5 358: MOVL R10, ACTUAL_SCALE : 0554 
10 13 00139 26$:  BEQL 27$ ; 0556 
24 AES 68 10 AE 28 00138 MOVC3 ACTUAL SCALE, (START_PTR), TEXT_BUF- ; 0559 
56 10 AE CO 00142 ADDL ACTUAC_SCALE, TEMP_LENGTH ; 0561. 
Oc AE 10 AE CO 00146 ADDL2 ACTUAL“SCALE, TOTAC_FRAC_DIGITS : 9962 
3D 18 AE £9 .0014B 27$:  BLBC 24(SP) > 056 
57 59 D1 OO14F CMPL CURRENT _PTR, END_TXT_PTR ; 0566 
38 18 00152 BGEQ $ ; 
6 95 00154 TSTB (CURRENT PTR) ; 0576 
5 13 001 6 BEQL ©. 28$ ; 
20 69 91 0015 CMPB = (CURRENT_PTR), #32 ; 


hserinsinseniehanelhde instep gine ete inca ha a i aa 


este 


02 


50 


04 B88 


3; Routine Siz 


BASSCVT_T_P = convert numeric text to packed 
BASSCVT_T_P = convert numeric text to packed 


FD97 


FD83 


CF 


CF 


wu 
oo 


50 


e: 521 bytes, 


24 


08 


oe 


20 
20 


03 
69 


09 


WOruMT —WIWMPrum 
VIFMASO NOGM—— 


> ~w 
mo 


Vm > 
oF £OnueN 


we 


Routine Base: 


000000006 


BASS 


OmMOOS > FS $ OS OFPWPON -“OUlSuUil PS PH SH PVM P PW OVIOMMOWM 
OO DMM LOAM NMWAO MWO NOMMMO— MO VM SM OO Ou FU Pm 


uw 
oO 


CODE 


DWDAOOOMSO—ON— 0" OOOO MOr-O08— M—UIM OD" OW Fv ON) Sw ory 


AGW ADWMOWDBNDNVUN-“WUANDFSCw 


yaxe11 Bliss-32 V4 0-742 
BASRTL.SRCJBASCVTTP.B32; 1 
R_FLAGS, 30$ 

. (CURRENT_PTR), SPANC_TABLE, #2 


RRENT_PTR), #9 
SP), 298 

, (CURRENT_PTR), SPANC_TABLE, #4 
CURRENT_PTR 

RENT_PTR, START_PTR 

8), R7 

AL FRAC_DIGITS, R7 

DIFF 


TEMP LENGTH, RO 
LENGTA, TEXT_BUF, #48, RO, TEXT_BUF 


Me &NO AWC MN a OOO Oo OC OO 


$ 
; 
$ 
$ 
y 
$ 
( 
0 
$ 
$ 
R 
$ 
R 
T 
§ 
F 
" 


F, 
Pp 


R1, I 
OUND _D 


#31, RO 

RO, TEMP_LENGTH 

Lp LENGTH, TEXT_BUF, (RB), a4(R8) 
#3, OSER_FLAGS, 42$ 

ROUND_DIGIT, #53 


TEXT BUF, #45 
#29, ONE 

ONE’ RS” 
(R8), R7 
(RB), R6 

#1, RG 
LIBSSADDP_R7 
RO, 43$ 


RO 


rae Af 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Fe Ge Ge Ge Se Se Ge Se Be Se Se Se Se Se Se Se Se Se Be Fe Se Se Be Se Ge Fe Se Fe Fe Fe Fe Se Fe Fe Se Ge Se Fe Se 


e 


—w 


Be ee Oe Be Oe Se Be Se Be Ge Se Se Se Se Se Se Be Se Se Se Se Se Be Se Ge Se Se Se Ge Ge Se Se Ge Se Se Se Se Ge Ge Se Se Se Se ee Se Se FH Se SSeS Se Se ee Se ee we 


tag, H 11 J 
PGIG''~'-P—GASEEVIc xp = ESnvert numeric kext to packed de iecsepm19be Visscsey — PBasRTL SRedascvtio.|ss.1 tack Shea 
: 609 B70 i END ! End of module BASSCVT_T_P 
: 8? 8708 0 ELUDOM ve 
: PSECT SUMMARY 
; Name Bytes Attributes 
; _BASSCODE 777 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

Beet Pe eae a Ser on YEQS(G seecesse Pages Processing 
: File Total Loaded Percent Mapped Time 

; _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 3 0 581 00:01.1 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASCVTTP/OBJ=OBJ$:BASCVTTP MSRC$:BASCVTTP/UPDATE=(ENHS$:BASCVTTP) 
521 code + 256 data bytes 


; Size: 
Run Time: 00:15. 
Elapsed Time: 00:35.7 
Lines/CPU Min: 780 
Lexemes/CPU-Min: 12506 
ponety Used: 203 pages 
Compilation Complete 


COMMAND QUALIFIERS 


Af) AH-BT13A-SE | IPMENT CORPORATION | 
VVEL VAX/VMS V4.0 | | L- AND PROPRIETARY 


